home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8506a.d64
/
Diskontieren ein
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
5KB
|
140 lines
8 POKE45,PEEK(174):POKE46,PEEK(175):CLR
9 CLR:DIMA$(15),A(15):GOTO1000
10 Z1=3:Z2=9:S=13:REM * MASKE LOESCHEN *
20 FORZ=Z1TOZ2:GOSUB90:PRINT" ":NEXT:IFC=0THENRETURN
30 Z1=12:Z2=20:C=0:GOTO20
50 RETURN
70 A$(12)=STR$(INT(A(12)*100+.5)):REM * RUNDEN
75 AB$=LEFT$(A$(12),LEN(A$(12))-2)+"."+RIGHT$(A$(12),2):RETURN
80 LOAD"FM.MENUE",8:REM *LOAD MENUE
90 POKE214,Z:POKE211,S:SYS58732:RETURN:REM * CURSORPOSITION
95 A=55869:FORI=1597TO1622:POKEI,100:POKEA,1:A=A+1:NEXT:RETURN
100 REM * AUSWAHLROUTINE *
110 GOSUB90:PRINT" [146]":FORI=1TO75:NEXTI
120 GOSUB90:PRINT""A$(Y)"[146]":FORI=1TO125:NEXT
130 GETG$:IFG$<>CHR$(133)ANDG$<>CHR$(134)ANDG$<>CHR$(135)ANDG$<>CHR$(13)THEN110
140 IFG$=CHR$(133)ANDCTHENC=0:RETURN
150 IFG$=CHR$(13)THENGOSUB90:PRINT">[146]":RETURN
160 IFG$=CHR$(135)THEN190
170 Z=Z+SW:Y=Y+1:IFZ>Z2THENZ=Z1:Y=Y1
180 GOTO110
190 Z=Z-SW:Y=Y-1:IFZ<Z1THENZ=Z2:Y=Y2
195 GOTO110
200 REM * WAHL-FUSSZEILE *:S=0
210 Z=23:GOSUB90:PRINT" [146]";:FORI=1TO75:NEXT
220 GOSUB90:PRINT""BA$(Y)"[146]";:FORI=1TO175:NEXT
230 GETG$:IFG$<>CHR$(134)ANDG$<>CHR$(135)ANDG$<>CHR$(13)THEN210
240 IFG$=CHR$(13)THENGOSUB90:PRINT">[146]";:RETURN
250 IFG$=CHR$(135)THEN280
260 S=S+10:Y=Y+1:IFS>31THENS=0:Y=1
270 GOTO210
280 S=S-10:Y=Y-1:IFS<0THENS=30:Y=4
290 GOTO210
300 REM * EINGABEROUTINE *
310 GOSUB90
320 IN$=""
330 PRINT"[162][157]";
340 GETG$:IFG$=""THEN340
350 G=ASC(G$):IFG=13THEN460
360 IFG=13THENRETURN
370 IFG$<"0"ORG$>"9"THEN420
380 IN$=IN$+G$
390 PRINTG$;
400 IFLEN(IN$)>NTHENFORI=1TOLEN(IN$):PRINTCHR$(20);:NEXT:GOTO320
410 GOTO330
420 IFG=46THEN380
425 IFG$=CHR$(133)THEN9
430 IFG<>20THEN330
440 IFLEN(IN$)<1THEN330
450 IN$=LEFT$(IN$,LEN(IN$)-1):GOTO390
460 PN$="":FORI=1TO(10-LEN(IN$)):PN$=PN$+".":NEXT:PRINTPN$
470 IFLEN(IN$)<1THEN310
480 RETURN
999 :
1000 REM ** DIKONTIEREN **
1010 GOSUB5000:PRINTMA$
1020 A=55388:FORI=1076TO1906STEP40:POKEI,101:POKEA,1:A=A+40:NEXT
1030 A=55736:FORI=1464TO1474:POKEI,100:POKEA,1:A=A+1:NEXT
1040 A=55749:FORI=1477TO1502:POKEI,100:POKEA,1:A=A+1:NEXT
1050 Z=23:S=0:GOSUB90:PRINTMB$
1060 Z=3:GOSUB90:PRINT"[193]USWAHL :":PRINT"[163][163][163][163][163][163][163][163][163]"
1070 Z=5:FORI=1TO5:GOSUB90:PRINT""A$(I)"[146]":Z=Z+1:NEXT
1080 Z=5:Z1=Z:Z2=9:S=0:Y=1:Y1=Y:Y2=5:SW=1:C=0:GOSUB100:F=Y:IFF=5THEN80
1150 IFF=1THENA$(9)=KN$:A$(10)=P$:A$(11)=JA$:K=1
1160 IFF=2THENA$(9)=KB$:A$(10)=P$:A$(11)=JA$:K=1
1170 IFF=3THENA$(9)=KN$:A$(10)=KB$:A$(11)=JA$:K=0
1180 IFF=4THENA$(9)=KN$:A$(10)=KB$:A$(11)=P$:K=2
2000 REM * EINGABEMASKE *
2010 Z=3:S=13:GOSUB90:PRINT"[197]INGABE :":Z=4:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163]"
2020 Z=5:FORI=9TO11:S=13:GOSUB90:PRINT""A$(I)"[146] : ";PM$
2030 Z=Z+2:NEXT:Z=23:S=0:GOSUB90:PRINTMC$
2040 Z=5:S=27:N=10:GOSUB300:A(9)=VAL(IN$)
2050 Z=7:GOSUB300:A(10)=VAL(IN$)
2060 Z=9:GOSUB300:A(11)=VAL(IN$)
2070 Z=13:S=13:GOSUB90:PRINT"[197]INGABE KORREKT ? (J/N):":GOSUB95
2080 Z=13:S=38:GOSUB90:PRINT"[162][157]";
2090 GETG$:IFG$<>"J"ANDG$<>"N"THEN2090
2100 PRINTG$:IFG$="J"THENY=1
2110 IFG$="N"THENY=0
2120 GETI$:IFI$<>CHR$(13)ANDI$<>CHR$(20)THEN2120
2130 IFI$=CHR$(20)THEN2080
2140 C=1:GOSUB10:IFY=0THEN2010
3000 REM * RECHNUNG *
3010 IFF=1THENA(12)=A(9)*(1/(1+(A(10)/100))^A(11))
3020 IFF=2THENA(12)=A(9)/(1/(1+(A(10)/100))^A(11))
3030 IFF=3THENA(12)=((A(9)/A(10))^(1/A(11))-1)*100
3040 IFF=4THENA(12)=LOG(A(9)/A(10))/LOG(1+(A(11)/100))
3500 REM * BILDSCHIRM
3510 Z=3:S=13:GOSUB90:PRINT"[197]INGABE :":Z=4:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163][163]"
3520 Z=5:FORI=9TO11:GOSUB90:PRINTA$(I)" :"A(I):Z=Z+2:NEXT
3530 Z=13:GOSUB90:PRINT"[210]ESULTAT :":Z=14:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163][163]":GOSUB70
3540 Z=16:GOSUB90:PRINT""A$(F)"[146] :";:PRINTTAB(38-LEN(AB$));AB$
3550 PRINTTAB(39-LEN(AB$));:FORI=1TOLEN(AB$)-1:PRINT"=";:NEXT
3560 Z=20:GOSUB90:IFK=1THENPRINT"[193]USDRUCK IN [196][205][160]!":GOTO3580
3570 IFK=0THENPRINT"[193]USDRUCK IN [208]ROZENT !"
3580 Z=23:S=0:GOSUB90:FORI=1TO4:PRINT""BA$(I)"[146]";:NEXT
3590 Y=1:GOSUB200:IFY=4THEN80
3600 IFY=3THEN1010
3610 IFY=2THEN4500
4000 REM * AENDERUNG *
4010 C=1:GOSUB10
4020 Z=3:S=13:GOSUB90:PRINT"[193]ENDERUNG :":Z=4:GOSUB90:PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
4030 Z=5:S=13:FORI=9TO11:GOSUB90:PRINT""A$(I)"[146] :";A(I):Z=Z+2:NEXT
4040 Z=23:S=0:GOSUB90:PRINTMD$;
4050 Z=5:Z1=Z:Z2=9:S=13:Y=9:Y1=Y:Y2=11:SW=2:C=1:GOSUB100
4060 IFC=0THENGOSUB10:GOTO3000
4070 Z=13:S=13:GOSUB90:PRINT""A$(Y)"[146] : "PM$:GOSUB95
4080 Z=23:S=0:GOSUB90:PRINTMC$;:Z=13:S=27:GOSUB300:A(Y)=VAL(IN$):GOTO4010
4500 REM * AUSDRUCK *
4505 TA$=CHR$(10):TB$=CHR$(16)
4510 OPEN4,4,7:PRINT#4,CHR$(14);TB$"10[196][201][211][203][207][206][212][201][197][210][197][206] [197][201][206][197][211][160][203][193][208][201][212][193][204][211]"
4520 PRINT#4,TB$"10---------------------------"TA$
4530 FORI=9TO11:PRINT#4,CHR$(15);TB$"10*** "A$(I)" : ";A(I):NEXT
4540 GOSUB70:PRINT#4,TA$;TB$"14"A$(F)" : "AB$
4550 PRINT#4,TB$"15";:FORI=1TO2+LEN(A$(F)+AB$):PRINT#4,"=";:NEXT
4560 PRINT#4,TA$;TA$;TA$
4570 PRINT#4,CHR$(13);TB$"10*** [197]NDKAPITAL UND [194]ARWERT WERDEN";
4580 PRINT#4," IN ' [196][205] ' AUSGEDRUCKT,"
4590 PRINT#4,TB$"16DER [218]INSSATZ IN ' % ' !"
4600 PRINT#4:FORI=1TO40:PRINT#4,"==";:NEXT:PRINT#4,TA$;TA$;TA$;TA$
4610 CLOSE4:FORI=56176TO56215:POKEI,0:NEXT:GOTO3580
5000 REM * VARIABLENLISTE *
5010 MA$="[147] [196][201][211][203][207][206][212][201][197][210][197][206][160][197][201][206][197][211][160][203][193][208][201][212][193][204][211] [146]"
5020 MB$=" [198]3 U. [198]5 - [215]AHL ! '[210][197][212][213][210][206]' - [197]INGABE ![146]"
5030 MC$=" [198]1 - [206]EU ! [199]EBEN [211]IE EIN ! [146]"
5040 MD$=" [198]1 - [210]ESULTAT ! [198]3 U. [198]5 - [215]AHL ! [146]"
5050 KN$=" [197]NDKAPITAL":P$=" [218]INSSATZ ":JA$=" [202]AHRE ":PM$=".........."
5060 KB$=" [194]ARWERT "
5110 BA$(1)=" [193]ENDERN "
5120 BA$(2)=" [203]OPIE "
5130 BA$(3)=" [206]EU "
5140 BA$(4)=" [205]ENUE "
5510 A$(1)=" [194]ARWERT "
5520 A$(2)=" [197]NDKAPITAL"
5530 A$(3)=" [218]INSSATZ "
5540 A$(4)=" [204]AUFZEIT "
5550 A$(5)=" [205]ENUE "
5590 A$(13)=" [193]ENDERN "
5600 A$(14)=" [210]ESULTAT "
5610 A$(15)=" [205]ENUE ":RETURN